#tag Window
Begin ContainerControl zdTaskListPanel
   AcceptFocus     =   ""
   AcceptTabs      =   ""
   AutoDeactivate  =   True
   Enabled         =   True
   EraseBackground =   False
   Height          =   40
   HelpTag         =   ""
   InitialParent   =   ""
   Left            =   32
   LockBottom      =   ""
   LockLeft        =   ""
   LockRight       =   ""
   LockTop         =   ""
   TabIndex        =   0
   TabPanelIndex   =   0
   TabStop         =   True
   Top             =   32
   UseFocusRing    =   ""
   Visible         =   False
   Width           =   300
   Begin ProgressBar TaskProgress
      AutoDeactivate  =   True
      Enabled         =   True
      Height          =   10
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   180
      LockBottom      =   False
      LockedInPosition=   False
      LockLeft        =   ""
      LockRight       =   True
      LockTop         =   True
      Maximum         =   100
      Scope           =   0
      TabPanelIndex   =   0
      Top             =   7
      Value           =   0
      Visible         =   True
      Width           =   100
   End
   Begin StaticText LabelName
      AutoDeactivate  =   True
      Bold            =   True
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   15
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   20
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   True
      Multiline       =   ""
      Scope           =   0
      TabIndex        =   1
      TabPanelIndex   =   0
      Text            =   "TaskName"
      TextAlign       =   0
      TextColor       =   0
      TextFont        =   "SmallSystem"
      TextSize        =   0
      TextUnit        =   0
      Top             =   5
      Underline       =   ""
      Visible         =   True
      Width           =   139
   End
   Begin StaticText LabelState
      AutoDeactivate  =   True
      Bold            =   False
      DataField       =   ""
      DataSource      =   ""
      Enabled         =   True
      Height          =   15
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Italic          =   ""
      Left            =   20
      LockBottom      =   True
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   False
      Multiline       =   False
      Scope           =   0
      TabIndex        =   2
      TabPanelIndex   =   0
      Text            =   ""
      TextAlign       =   0
      TextColor       =   0
      TextFont        =   "SmallSystem"
      TextSize        =   0
      TextUnit        =   0
      Top             =   23
      Underline       =   ""
      Visible         =   True
      Width           =   260
   End
   Begin Separator PanelSeparator
      AutoDeactivate  =   True
      Enabled         =   True
      Height          =   2
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   0
      LockBottom      =   ""
      LockedInPosition=   False
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   ""
      Scope           =   0
      TabIndex        =   3
      TabPanelIndex   =   0
      TabStop         =   True
      Top             =   40
      Visible         =   True
      Width           =   300
   End
End
#tag EndWindow

#tag WindowCode
	#tag Method, Flags = &h0
		Sub Constructor(inTaskName As String, inTaskState As String = "", inProgress As Integer = - 1)
		  // Initializing
		  me.LabelName.Text = inTaskName
		  me.LabelState.Text = inTaskState
		  
		  If inProgress < 0 then
		    me.TaskProgress.Maximum = -1
		    
		  Else
		    me.TaskProgress.Maximum = 100
		    me.TaskProgress.Value = inProgress
		    
		  End If
		End Sub
	#tag EndMethod


#tag EndWindowCode

